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ZTITLE'SMGLIB = Screen Management BLISS Librar 1 
! Run-Time tracy Screen Ranager 6 BLISS Definition Library 
File: SMGLIB.REQ, Edit: STANTO0 


SRR ARATE 
'e 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


: N S 
:* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. TH 
tt COPIES THEREOF MAY NOT BE PROVIDED OR OTHER 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 
'® TRANSFERRED. 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; seponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
: 
® 
w 
® 
® 
IS HEREBY * 
® 
® 
® 
® 
* 
® 
oy 
® 
® 
® 
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Author: Steven B. Lionel, 29-April-1983 
| 


1-001 = Original. SBL 29-April-1983 

1-002 - Correct logical name for RTLML. SBL 30-A raver 

1-005 = Don't include SMGDEF since it comes from RLET. SBL 2-May-1983 
1-004 - ‘ee 38 eae and SMGLNK.REQ for CnGSSESCAPE GENERATOR. 

1-005 - Fix reference for SMGTERM and SMGLNK to STL IN. bee 24-May-1983 
1-006 - Add output-specific require files. PLL 14-Jun-198 

1-007 = Conditionally require SMGDEF. (These definitions may already be 


in Starlet, depending on the version of Starlet used.) Move macros 
and Linkages te SMGMACROS.REQ and SMGLNK.REQ. PLL 21-Jun-1983 

8 - Require SAGTRMPTR. 

9 = Until V4 build, temporarily define SMGSK_TOP, etc. 


'¢ 

i This file is the master source for SMGLIB.L32. 

! It contains definitions for macros and symbols used internally to the 
i Run-Time Library Screen Management procedures. 


SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 
LIBRARY ‘RTLSTARLE'; ! SYSSLIBRARY:STARLET.L32 


‘4 
t Screen Management specific definitions. 
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REQUIRE ‘RTLML:SMGKCB'; 
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RUCT = BLOCK CKCB_S_KCB_STRUCT, byte] FIELD (KCB_STRUCTSFIELDSET) 2%; 
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CKDE_S_KDE_STRUCT, byte] FIELD (KDE_STRUCTSFIELDSET) %; 


00 - D> 
wu els 4 
now -— 
~~ ww 
-um aot 
‘<< ot 
~o= =) 
~~ tt mr» 
-——~= ae 
-—fc wo 
-w Oo ft 


oooocoo 
@Qaaeaca 


samara nibs, ectie commer! ricci maguhety 130 96b2138e $3: iF § "335 ISDUADB  Camakti ose SMGLIB.REQ;1 die aj 


; 0203 0 REQUIRE *RTLML:SMGKTH'; 
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Source: 15-SEP-1984 22:50:13 _$255$DUA28:CSMGRTL.SRCISMGK 
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kK CKTH_S_KTH_STRUCT, byte] FIELD (KTH_STRUCTSFIELDSET) 2%; 
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> 0231 0 REQUIRE ‘'RTLML:SMGKQB'; 
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‘ee MODULE KOQBDEF {DENT 1-001 #* 
Literal KQB_S fill 
FIELD KOb STROCTSFTELDSEY = 
KQB_Q_QUEUE_LINK = [0,0,0,0] , 
KOB"A_FLIAK = 0.078 a , 
KQB-A BLINK = [4.0.3 " 
KOB_r-fTll_1 = C 9.6 ge 
KOQB_r-fTLl_O7= [0 9.9 er 
KOB"ALKCB = (8,0,$2.04 
Literal KQB_S_KQB_STRUCT = 12; 
MACRO KQB_R-KGB_STRUCT = BLOCK CKQB_S_KQB_STRUCT,byte] FIELD (KQB_STRUCTSFIELDSET) % 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT EORPORATION, - MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


1* a? SOF TWARE 4 een ace UNDER A LICENSE AND MAY BE USED AND gt Lt 
Hed oe IN ACCORDANCE WITH THE TERMS OF SUCH Tht ‘a ahd HE 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
o orepokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'++ 
FACILITY: Screen Management 
i ABSTRACT: 


This file contains Linkage definitions which are needed by 
various routines in the screen package. 


! MODIFIED BY: 
i 1-001 - Original. PLL 7-Mar-1983 


j oes Add binnones for input routines. (Formerly in SMGLIB.REQ.) 
sn068 PLL 21-Jun-1983 


Add binkages for pasteboard batching routines. 
1-004 - Names introduced in last edit too long, shorten them. RKR 2-DEC-1983. 


RKR 2= 


LINKAGE 
SMGSSESC_R2_LNK = JSB (REGISTER = Q REGISTER = 1, REGISTER = 2) 
NOPRESERVE (0, 1, 25, 
SMGSSESC_R4_LNK = JSB (REGISTER = 0 REGISTER = 1, REGISTER = 2, 
EGISTER = REGISTE fER 
NOPRESERVE (6, , ?? 


SESMGRTLS she SMGLNK.REQ; te 


. 
oe 
. 
e 
. 
o 
. 
« 
. 
. 
. 
° 
. 
2 
. 
2 
. 
° 
. 
2 
. 
o 
. 
. 
. 
e 
- 
o 
. 
7 
. 
. 
. 
e 
o 
° 
. 
a 
. 
. 
- 
- 
> 
o 
. 
. 
+ 
7 
ce 
. 
o 
7 
@ 
. 
e 
. 
e 
. 
e 
. 
o 
7 
o 
. 
ae 
7 
a 
. 
o 
. 
. 
. 
s 
+ 
eo 
7 
° 
. 
° 
~ 
. 
> 
° 
¥ 
* 
os 
7 
. 
. 
. 
. 
. 
. 
o 
. 
° 
. 
° 
. 
e 
7 
a 
. 
° 
= 
s 
. 
. 
. 
* 
. 
. 


ja leleleleleleleleleleleleleleleleleleleleleleleolalolalo) 


15 
SMGLIB = Screen Management BLISS Library 13- Sep-1984 
-Sep-1984 


1+ 
Linkages for input 


LINKAGE 
SMGSSCLEANUPS 


CALL (RE 
siege yi 
JSB (REG 


NOTUSED 
vleeet pe 
JSB (¢ 3 


NOPRES 


8. REGISTER=0), 
oe eeeacrettan 


G 
K 
I 
( 
E 
I STER=8): 

Vv SED (4,5,6,7,9,10,11); 


T 
G 
R 
1+ 
7 Linkages for pasteboard batching routines 
LINKAGE 
ee ene 

NOPRESERVE (0,1) NOTUSED (2,3,4,5,6,7,8,9,10,11), 
ee ei 

NOPRESERVE (0,1,2) NOTUSED (3,4,5,6,7,8,9,10,11); 
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$25 s4$GA2 CSMGRTL. she SMGLIB.REQ;1 (1) 


> 0336 0 REQUIRE "RTLIN:SMGTERM'; 
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SMGLIB = Screen Management BLISS Library 


SRR AAR AEA AAA AAA AAA AERA 
' 


tions for . ns facility 
REQ Edit AN1006 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 4} FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN . => ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION 0 THe ABOVE fe gt NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Taistchake NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


+ 
FACILITY: Screen Management 
ABSTRACT: 


T 


his file contains terminal type definitions and escape sequences 


which are needed by various routines in the screen management package. 


MODIFIED BY: 


-006 = STAN 15-MAR-1984. Comment obsolete items. 
-005 - STAN Eee 4. Add VTITERMTABLE. 
-004 = STAN 5-Oct-1983. Changed BLOB and DIAMOND to be above control 
eqeracter range. Thus they represent a high order nibble 
and .. respectively. 
-003 - Added VT, 4 OB, and DIAMOND. PLL 23-Sep-1983 
-002 - STAN 1-Ma Ht 6s 
one BUFSIZE. 


ded TAB. 
-001 - Original. PLL 15-Mar-1983 


iSodeoct9ge 35:28:18 Vays 


$355 
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SMGLIB = Screen 


+ 
Characters 


BLOB 

DIAMOND 
‘+ 
} Miscellaneous 
LITERAL 

CB 


t+ 
: Terminal type 


Management BLISS Library 1S 198 32:89:39 


' blank (space) 

' Backspace 

' Form feed 

' Line feed 

! Carriage return 

' Escape 

' Left bracket (vT100) 
! Semi-colon 


' Horizontal tab 
' Capital letter 
' Capital letter 
' Capital letter 
' Capital letter 
! gnakh letter f 


! Two 
' Vertical tab 
! Horizontal tab (same as TAB) 


ses 8s 8s 8S S&S & SF & & & &© & & & 


VR FL TL HL HL HL HL FL FL VL HL HL FL HL HL IL 
xrow>,y 


DS DK DK OK DOK MK OK OK OK OK OK OK OK OK OK OK OK OK OK 


! 

' 

' 

' 

' 

' 

' 

' 

: Nu 
; Bell character 
' 

' 

' 

' 

' 

' 

' 

' 


14 
The following two codes form a %X'10" and a %X'6" in the high order nibble. 


= %xX'100", ! This is not the correct ascii 
= %x'60'; ! This is also made up 
constants 

= 2X'1F°; ! Line/column bias in message 
definitions 


i 
Types VT05, VT52, and VT100 will be going away soon. 


LITERAL 
UNK 


T100 
VTFOREIGN 
HARDCOPY 
VTTERMTABLE 
‘ 


Non=-graphics or unknown type 

Mh series terminal (OBSOLETE) 
VT5x_ series terminal (OBSOLETE) 
VT100 series terminal (OBSOLETE 
Foreign terminal (F11-8) 
Rerdscoy device 

Terminal support is via TERMTABLE 


) 


nnnnunnn 
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'¢ 
VT05 Codes (OBSOLETE) 
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SMGLIB = Screen Management BLISS Library 13-50 Sep-1984 
-Sep-1984 
le 
LITERA 
vVT05_SC = ZX'OE', ' Set cursor position 
VTOS_HOME = %X'1D', ' Set cursor to home 
VTO5_CuP = ZX'1A', ! Cursor up 
VTO5S_EOL = ZX'1E', ! Erase to end of Line 
VTO5_E0S = 2X'1F'; ! Erase to end of screen 


Lema 

vT52_SC = %x'59", 
VTISO-HOME = 2X48". 
VISQ-DWN = =: 2X"49"- 
VI50-E0S = =_-«RX'4A, 
VTS2-EOL = =_-« XX"4B' 

'¢ 

i vT100 Codes (OBSOLETE) 

le 

LITERAL 
VT100_SC = -&X'66", 
VT100“DWN = 2X40"; 
VTI00-EOS == -XX"4A', 
VTI00-EOL = = -XX'4B. 
VT1007SGR = %X'6D'; 
VT1007SM = -&X"72" 


Set cursor position 
Set cursor to home 
Down scroll 

Erase to end of screen 
Erase to end of Line 


Set cursor position 
Down scroll 

Erase to end of screen 
Erase to end of Line 
Select greghic rendition 
Set scrolling region 


VAX-11 Bliss 


"$255$DUA28: age 


1 
GRTi OSRCISMGTERM. REQ;1 (2) 


a 83:85:57 
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0475 0 


SMGLIB = Screen Management BLISS Library 


REQUIRE "RTLIN:SMGDATSTR'; 


i 


1° 
oa e = 


1986 3:80:39 


VAX= 
$25 


S$DUAZ8: 


s-32 V4.0-74 
CSMGRTL.SRC 


$smoi18.RE0; 1 
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. j 1 =300n 138% 53:28: 38 SMGRTL. SRC ISMGDATSTR-REQ: 1 ° (75 


Data Structure De 
File: R. 


ns for af SMG$ facility 
SMGDATST it: STAN1054 


' fin 
' REQ 
! 
i 
LRA ERRATA ERATE RETAKE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


e 
® 
® 
® 
N THE 
ROG8B '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWA R ANY OTHER * 
RO489 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RO490 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP GF THE SOFTWARE IS HEREBY * 
slop '® TRANSFERRED. * 
'® ® 
RO49 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
RO494 '‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Rt oe es CORPORATION. ® 
'® *® 
RO497 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
RO4G98 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
RO499 al * 
ROS5O0 'e * 
sits ian aya tt St dane taki eh a ee ately 
R 
RO5SO 
RO504 + 
eo ebe FACILITY: Screen Management 
RO507 ABSTRACT: 
RO508 
ROS 


This file contains data structure definitions for screen management 
routines. Display Control Block, Pasteboard Control Block, Window 
Control Block, and Pasting Packet are defined here. 


MODIFIED BY: 


“001 = Original. PLL 15-Mar-1983 

- Expand PBCB to hold PBCB_L_MODE_SETTINGS. RKR 17-Mar-1983. 

- Add Literal foe initial Setting of PBCB_L_MODE_SETTINGS. 
RKR 18-Mar-1983. 

- Add stuff for . satis alternate character sets, etc. 

- Corrections to last edit. RKR 24-Mar-1983. 

$ - Expand WCB and PP structures, RKR egager1985. 

07 = Fix type in Last edit. RKR 28-Mar-1983. 

- Pull BACKGROUND_COLOR out of PBCB since we don't know what 

to do with 5 Add stuff pertaining to borders. 


83. 
099 - More fixes. RKR 4-April-1983. 
le 
a 


Polelelelojojaj—j=) 
PPA MANITOU 
a ed ed ed ed ed ed asd 


Clean up rest of border masks. RKR Sohor{to1955 
More additions for labeled borders. RKR 7-A £i471985. 
Add more fields to PBCB and PP. RKR 14-APR-19835. 
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1-013 = Rearrange the bits for the Line-drawing sheregter. S95 ig the 
bit used to wep gnats 2. F) a element. RKR 1 198 

1-014 = Define one to mean that all Lines are 
rt (and thus sevetl tne * should occur thereafter), and one to 
mean that column 80 was written (useful on the next write 
operation). PL 


more 


“Apr- 
1-015 = Define a bell Bit in the DCB and +} oe Put lie 
1-016 = New fields in rete. STAN 28-Apr-1985 (2nd try 
Changed PID to P 1D so as not to AP og a Slolehsord id 
with a process id. 
1-017 = Added event flag numbers to PBCB. STAN 30-Apr-1983 
1-018 = STAN 1-May- 


Added SMGSK got SEQUENCE. 
Added output buffer fields to PBCB. 
Added rows 9 columns to PBCB. 


i 1-020 - STAN venereal? 


i 1-021 = Add BBB. CONTROL *BITS field in PP. RKR S-MAY-1983 
! 1-056 - Add PP_V-CONTIG Bit in PP_B_CON TROL_BITS. RKR 9=-MAY-1983 
1-023 = Add to DCB, PP, a WCB a longword that is the product of 
the number of rows * the number of columns. (Not strictly 
ye eo hate oon se -- but ignore it. 


i 1-024 - Nad BATCHING Bit to PBCB 


RO560 ' STAN nas 
!' 1-025 = Remove bell bit. PLL plies ty bee 
backup DCB logic. 
ROS6 Delete DD_K -v0 == should no Longer be needed. 
ROS ! B CORA. T98D 
RO565 ! 1-027 - Add words in € DCB 1583 store the top and bottom of a scrolling 
0566 region. PLL of 
RO567 ! 1-028 = Add new fields to + and PBCB. RKR 26-MAY-1983. 
RO568 ! 1 $3 - New fields to PBCB for mailboxes et. al. STAN 1-Jun-1983. 
RO569 ! 1-050 - More of same. STAN 2-Jun-1983. 
RO570 ! 1-031 - More of same. STAN 13-Jun-1983. 
RO571 ! 1-032 - ace DCB_V_L CENTER control bit to DCB_L_CONTROL_BITS. 


R tee JUR=1 9837 
! 1-033 - Rake Be nas nd PP_W_COL signed fields. 
! 1-034 - hod ite DCB_V_PP_MISMATCH. RKR ies 1983. 
! 1-035 = Fields for dutput files in PBCB. STAN 18-Jun-1983. 
Made LAST_CHANGED fields a PBCB signed. 
Created macros for declari on structures. 
: Made CURSOR position in PBCB signed. 
! 1-036 - Add structures to DCB and WCB dealing with Line characteristics 
Like Double-Wide, Double-High, etc. 
: RKR 7-JUL-1983. 
! 1-037 - Add bit to DCB to mark as used for autobending. PLL 77-Jul-1983 
! 1-058 - Add more longwords to DCB for res heneieg (used to parse 
: esce e se ey? PLL 8-Jul-1 
! 1-039 - wor © PBCB to record where the physical scrolling 
~ FF is a the terminal. 
RK Ti=JUL=4 983, 


' 
1 
i] 
! 
! 
! 
! 
1 
! 
! 
1 
1 
i] 
' 
1 
1 
! 
' 
1‘ 
! 
! 
! 
' 
! 
' 
1 
i] 
1 
! 
1-026 - Extend DCB in anticpation o 
' 
! 
! 
i] 
{ 
i] 
' 
| 
! 
! 
! 
! 
! 
' 
! 
' 
! 
' 
' 
i] 
' 
| 
1 
1 
t 
! 1-040 = Fix typo. RKR 11-JUL-1983. 
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. 7 
-Sep- SMGRTL.SRCJSMGDATSTR.REQ; 1 


; RO590 ! 1-041 = Save original terminal width and height. STAN 22-Aug-1983 

; RO591 ' 1-042 = STAN 31-Aug-19 ine chores ter tay ite “the: 

; RO eae ' 1-045 = Add a truncation icon attribute bit to DCB. PLL ie i de 

; ROSS ' 1-044 = Get rid of 2 unused fields in the DCB by rensaing one to 

: RR eGe 8 bp igeece 9 vice type and leaving the other one as a placeholder. 
$ i -3ep- 

3 RO228 Q ' 1-045 - Added sone recat inal characteristics constants. 

; ROS9 8 ' ——. 5- “SEB oF 

; kO598 ! 1-046 - B BiLL by turning it into DCB_B_LABEL_REND. 

; kRO5S99 O ' RRR 1 =SEP=19 

; RO600 QO ! 1-047 = Add a user Line drawing bit the rendition attribute. PLL 21-Sep-1983 
; RO0601 8 ' 1-048 - Background colar ot STAN often: 

; set ! 1-049 = STAN 14-Oct-19 oeed wide and high bits; AST-reentrancy bits. 

; kRO603 O ' 1-050 = STAN 14-0ct-1983. CTRL/O bit. 

; RO604 0 i 1-051 = STAN 17-Oct-1983. Add Cance| control/0O bit. 

; RO605 O ! 1~036 - STAN 15-Jan-1984. Add TERA TABLE. 

; 0606 0 | 1-053 = STAN 21-Feb-1984. Add LF, TAB, and BS optimization bits in PBD. 

: RO6O7 0 { 1-054 = STAN 6-Mar~1983. “add NOTABS bit. 
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’ : 132808-1382 33:48:18 SMGRTL.SRCJSMGDATSTR.REQ;1 ’ (33 


; RO609 8 + 

3 ~ 919 Critical sizes and counts for virtual displays and pasteboards 

: Reels 

; R061 LITERAL 

> RO614 

; RO615 PBD_K_MAX_PB = 16, ! Maximum number of pasteboards we can track. 
; ® 1 ! It controls the range of pasteboard id's we 
; R061 ! will allocate and the size of the pasteboard 
; RO618 ! directory (PBD) structure in OWN storage. 

; RO619 0 ' Currently constrained not to exceeed by 

; Roe 8 ! usage of FFC instruction in SGET_NEXT_PID. 

3 Roe ¢ 8 SMG$K_LONGEST_SEQUENCE = 255; 

; RO626 0 ' Longest control or escape sequence that 

; RO625 0 ' can be returned by TERMTABLE routines. 

; RO626 0 ! This value can be used to preallocate a 

; RO627 O ' buffer to hold the text or can be used to tell 
5 sigh 0 ' if the next sequence desired could overflow 
; RO629 0O ! your buffer. 


Be Ge Oe Be Oe Se Oe Ss Se Oe Se Se Se Fe Se Se Se Se Se SH Se Se Se Ge F* Se Ge Ge FH Ge Ose Se BF Se Ss Se Se BH G6 Se Se Be Se GH SESH Oe Se Oe Oe Se Se Se Se Sees 
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met 


! This data structure defines the Layout of a Virtual Display 

! Control Block. The area is allocated in a storage. One such 

' block is allocated for each new virtual display created by callers. 
! It contains dimensions of the virtual display and pointers to other 
! buffers associated with this display. It also contains pointers to 
! the pasteboards onto which it is pasted. This area is deallocated 
! when the virtual display is deleted -- not when it is unpasted. 


le 
MACRO 
' Quadword containing next four words. fhese 4 fields 
! define the coordinate system for this virtual display 
! and their address is transmitted to pass the 4 fields 
' as a single parameter 
DCB_W_ROW_START = 0, 0, 16, 0%, ! Row number of 1st row. (=1) 
DCB_W-NO ROWS = 2, 0, 16, 0%, ! Number of rows 
DCB_W_COC_START = 4, 0, 16, 0%, ! Col number of Ist col (=1) 
DCB_W_NO_COLS = 6, 0, 16, 0%, ! Number of columns 
DCB_Q_LABEL_DESC se 0, ©, @, ! panel | 8, 0, 64, 0 
! Dynamic string descriptor 
! for border label text 
DCB_A_TEXT_BUF = 16, 0, 32, 0%, ! Addr. of buffer containing 
' text for this virtual 
! display. 
DCB_A_ATTR_BUF = 20, 0, 32, 0%, Addr. of buffer containing 


video attributes for each 
character position in 
TEXT_BUF. 


Addr. of buffer containing 
character set codes for 
each character in TEXT_BUF. 
This buffer allocated only 
when needed. 


DCB_A_CHAR_SET_BUF = 24, 0, 32. 0%, 


Number of levels of 
batching in effect for this 
display. 

Incremented by call to 
SMGSSTART_DISPLAY_UPDATE 
and decrement toward zero 
by each call to 
SMGSEND_DISPLAY_UPDATE. 
Output flows from this 
virtual display to the 
screen only when this 
variable is zero. 


DCB_L_BATCH_LEVEL = 28, 0, 32, 0%, 


DCB_A_PP_NEXT = 32, 0, 32, 0%, 


rae 
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; RO687 0 DCB_A_PP_PREV s 3%, 0, 32, GE, 
: RO688 ! Above two longwords are the 
; RO689 ' queue header for the chain 
; R0690 ! of Pasting Packets tied to 
: Nod 8 ! this virtual display. 
: RO693 0 DCB_W_CURSOR_ROW = 40, 0, 16, 0%, ! Cursor row position in this 
: Reg 8 ! virtual display 
: RO696 0 DCB_W_CURSOR_COL = 42, 0, 16, 0%, ! Cursor col position in this 
: sod 8 ! virtual display 
; R0699 0 DCB_W_LABEL_UNITS = 44, 0, 16, 0%, |! Starting position in the 
; kO700 O ' Line or column indicated by 
; staid 8 ! DCB_B_LABEL_POS 
: RO703 0 DCB_B_DEF_VIDEO_ATTR= 46, 0, 8, 0%, ! Default video attributes of 
; RO704 O ' this virtual display 
; kO705 QO DCB_V_RENBOL = 46, 0, 1, 0%, ! Bold 
; RO706 O DCB_V_RENREV = 46, 1, 1, 0%, ! Reverse video 
; kO707 O DCB_V_RENBLK = 46, ¢° 1, O%, ! Blink 
$ ithe 8 DCB_V_RENUND = 46, 3, 1, 0%, ! Underline 
: R0710 0 DCB_B_DEF _DISPLAY_ATTR=47,0, 8, 0%, ! Default display attributes 
3 RO711 O ' of this virtual display 
; nor 8 DCB_V_BORDERED = 47, 0, 1, 0%, ! Bordered 
: tar 8 DCB_V_TRUNC_ICON = 47,1, 1, O%, ! Flag to use truncation icon 
: MRO716 0 DCB_V_DISPLAY_CONTROLS = ! Flag to display carriage control 
3 kRO717 O as fe Fe Che ' characters such a <CR> instead 
: stat 8 ! of execute them 
: RO720 0 DCB_B_DEF_CHAR_SET = 48, 0, 8, 0%, ! Default character set for 
$ nor 0 ' all text in this virtual 
: ith 3 ! display. 
: ROS 0 DCB_B_LABEL_POS = 49, 0, 8, 0%, ! Code for poritioning of 
; kRO725 O ' border Label: 
; RO726 O ! Q = Top border line 
; kRO727 O ! 1 = Bottom border Line 
; RO728 O : ¢ = Left border Line 
; Ror ; 0 ! = Right border Line 
: R073; “ DCB_B_LABEL_CHAR_SET= 50, 0, 8, 0%, ! Code for character set of 
3 it § 0 ! border Label. 
F aor ¢ DCB_B_LABEL_REND = 51, 0, 8, 0%, ! Rendition for border label 
; nor o DCB_L_CONTROL_BITS = 52, 0, 32, 0%, ! Control bits 
; RO738 0 DCB_V_FULL = 52,0, 1, 0% ! ALL display Lines used 
: ithe ! (next op may scroll) 
; R0741 DCB_V_COL_80 = 52, 1, 1, 0%, ! Column 80 just written 
: R074 DCB_V_LABEL_CENTER=52,2, 1, 0%, ! If set indicates that 
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DCB_V_PP_MISMATCH=52, 3, 


DCB_V_AUTOBENDED =52, 

DCB_V_ALLOW_ESC = 52, 

DCB_V_LOCKED = 52, 
DCB_L_DID = 56, 
DCB_L_BUF SIZE = 60, 
DCB_A_BACKUP_DCB = = _-64, 
DCB_B_STRUCT_TYPE = 68, 
DCB_W_DCB_LENGTH = 69, 
DCB_B_FILL_2 = 71, 
DCB_W_TOP_OF_SCRREG = 72, 


OCB _SOTTOR_O? _SCAREG 


1, 


0%, 


0%, 


0%, 
02, 
0%, 


0%, 


02, 


0%, 


0%, 
0%, 
0%, 


02, 
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border Label should be 
centered -- even if virt. 
display is redimensioned. 


If this bit is set it 
indicates that this sheeienl 
display control block 

changed in such a way that 
all associated grty 
packets need to have their 
constants recalculated. 
However, this —: occurred 
he display wa 

nagar A. could nat be 


don time 

SROSEND peer Ay nUPDATE 
senses this bit whenever it 
makes = oP tl pan to 
batch_level=0 and performs 
the pstin " packet recalc. 
att of time, then resets 
this bit. 


This DCB created by 
autobended routines 


Parse escape sequences when set 
DCB is Locked for our use 
Virtual display 
noereery a Yaddress of 
the DCB itse 
= .0CB CDCB_W_NO_ROWS] * 
-DCB CDCB"W"NO-COLS) 


If non-zero, address of the 
backup DCB when this DCB is 
batched. Backup DCB holds 
the state of the DCB at the 
time batching started. 


Code to mark this structure 
as being a DCB 


Stored Length of a DCB 


Top Line in scrolling region 


Bottom Line in scrolling region 


SMGLIB = Screen Management BLISS Library 


DCB_A_LINE_CHAR 


oOoooo 


OQ. «= ss 


eon cwowuw 


DCB_K_STRUCT_TYPE = 2x11", 


Sep-1984 8 AxX-11 8 
YBodepe196s 25:28:18 yanett 
Address of the Line 
characteristics vector. 

is vector, one byte for 
each — records whether 
the Line is Single, Double- 
High, Deublesut e, etc. 
This vector is allocated to 
be DCB_W_NO_ROWS + 1 bytes 
Long so it Can be indexed 


e 
ROWS 

Control bits for -SMGSSS 1M. TERM 

Control seq arg 1 

Control seq arg 2 

Device type to simulate 

Unused 

Saved cursor column 

Saved cursor row 

Saved video attributes 


} a stored in DCB CDCB_B_STRUCT_TYPE] 
i to mark is as being a DCB. 


' Total number of bytes in a DCB 


SOOSOCOCOOCCOCOOOCOCOCOCOOOOOOCOSOOOOOO 


BLOCKCDCB_K_SIZE,BYTE] 2%; 


742 
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+ 

Pasteboard Control Block (PBCB) 

: This data structure resides in HEAP storage. One of these areas 
' is allocated whenever a new stream is established for the first time. 
! It is deallocated when the pasteboard is deleted. 

! It contains the fundemental information associated with a pasteboard 
and pointers to PBCB-related structures like the WCB. 


MACRO 

PBCB_A_PP_NEXT e- ¢@, @, 33. 0%, 

PBCB_A_PP_PREV s 4, 6, 32..08. 

! Previous two longwords serve 

' as a queue header for the 

! chain of pasting packets of 

' all the virtual displays that 
! are pasted to this pasteboard. 

PBCB_A_WCB s 6, 6. 32, 0%, : 

! Addr. of window control block 
! (WCB) 

PBCB_L_MODE_SETTINGS = 12, 0, 32, 0%, ! Mode setting for this PBCB 
Pete_v_BuF ENABLED = 12, 0, 1, O%, ! =1 if buffering enabled 
PBCB_V_MINOPD = ta, te Yo Wee ! =1 if minimal update enabled — 
PBCB_V_CLEAR_SCREEN= 12, ¢- 1, 0%, ! =1 if should clear screen on exit 
PBCB_V_NOTABS S Fhe Je) Ba Ome =1 rt ane should not use physical 

! abs. 

PBCB_B_DEVTYPE = 16, 0, 8, 0%, ' Logical device type 

! Status are defined in 
' SMGTERM.REQ and 

: mag OAH are: 

UNKNOW . 9 

i : 

i -vT100 2 g 

!  \VTFOREIGN = 4 

; HARDCOPY = 5 

PBCB_B_PARITY s 7, 6. & 6. ! parity flags 

PBCB_W_DEVNAM_LEN = 18, 0, 16, 0%, ! Length of the. 

! resultant device name 

' string contained in 

! PBCB_T_DEVNAM. 
PBCB_L_PBID = 20, 0, 32, 0%, ! Pasteboard id 
PBCB_T_DEVNAM = 24, 0, O, 0%, ! A 64-byte area. This 


! buffer contains the 
' resultant device name 


i is contained in 
! PBCB_W_DEVNAM_LEN. 


“ 
oe 
7 
> 
wo 
oO 

f omd 
a 
w” 
® 
=] 
oO 
Cad 
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PBCB_R_CHARBUF 


PBCB_L_DEVCHAR 
PBCB_B_CLASS 
PBCB_B_PHY_DEV_TYPE 


PBCB_W_WIDTH 
PBCB_L_DEVDEPEND 
PBCB_B_ROWS 


PBCB_L_DEVDEPEND2 


PBCB_W_CHAN 
PBCB_B_EFN 
PBCB_B_ASYNC_EFN 
PBCB_A_MBX_MSG_LIST 
PBCB_A_OUTPUT_BUFFER 


PBCB_W_OUTPUT_BUF S12 
PBCB_W_OUTPUT_BUFLEN 


PBCB_R_EXIT_BLOCK 


PBCB_L_EXIT_LINK 
PBCB_ AC ~EXIT_ADDR 
PBCB_B_EXIT_ARGCNT 
PBCB_A_EXIT_RSN 


PBCB~A~EX1T~PBCB 
PBCB_L_EXIT_REASON 


BLISS Library 


9 


9 


9 


9 


8, 
8, 
9, 


0, 
2. 
2. 


6, 


0, 0%, 


32, 0%, 
8, 0%, 
8, 0%, 


16, 0%, 
32, 0%, 


24, 8, 0%, 


32, 0%, 


16, 0%, 
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Start of 12=byte 
characteristics buffer 


Device characteristics 
Device class, e.g. DC$_TERM 


Physical Govice type, 
e.g. DIS.VIi00. 


Device width 


Primary device dependent 
bits. These are the bits 
of the TT$V_xyz flavor. 


Number of rows on terminal 
(overlaps previous field) 


Secondary device 
dependent bits. These 
are the bits of the 
TT2$V_xyz flavor. 


Channel number. 0 means 
a ppsin as been assigned 
yet. 


Primary output event flag 


Secondary output event flag 
used for asynchronous operations 


List of messages that came 
from our associated mailbox 


Address of buffer used to 
buffer up output sequences. 


(Maximum) size of output buffer 


perrem length of output buffer 
i.e. number of characters in 

the buffer. 0 means the 

buffer is empty. 


Exit block (5 longwords) 


system forward Link to next block 
address of our exit handler 
argument count (=2) 

arg 1: address to store exit reason 
arg 2: our PBCB address 


exit reason (address stored 
as first argument in exit 


Page 29 
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. < 15 Sep-1986 $3 $5: ¥f SMGRTL.SRC SHGDATSTR. REQ;1 . (4) 
; RO946 0 ! block). 
: R09e8 ; PBCB_Z_OUT_OF _BAND_RTN = 140 0, 0% ! b i id h 
3 = » Be . We Whe ! ten-byte routine resides here. 
> RO949 0 Patho u “ENTRY_MASK = 140, 6° 16, of. ' i You ney not beli ove it, 
; kRO9SO 0 PBCB_B_CALLG_ = 142, 0, 8, O%, ' A but s so. The first 
; R095! PBCB"B"REG-AP = 1435, 0, 8, O%, ! 6C word is the entry mask. 
; RO9S PBCB_B_ABS = 144, 0, 8, O2, i OF 
; RO9SS O PBCB_A_BAND_HANDLER= 145, 0, 32, 0%, ' Address of generic 
: Rete 3 PBCB_B_RET = 149, 0, 8, 0%, ! 04 out-of-band AST handler 
3 noes 0 PBCB_A_BAND_ROUT INE = 152, 0, 32, 0% ! Address of user's AST routine 
; RO9S7 O ! for out-of-band characters. 
; rRO9S8 O ' Q means out-of-band ASTs 
; RO9SD O ! are not enabled. 
: RO960 0 
: 94d 8 PBCB_L_BAND_AST_ARG = 156, 0, 32, 0%, ! User's arg to his AST routine 
: Roses 0 PBCB_M_BAND_MASK = 160, 0, 32, 0%, ' Character mask for out-of- 
>; RO964 0 ' band ASTs currently in effect 
; kRO965 O PBCB_L_BATCH_LEVEL = 164, 0, 32, 0%, ! Setenong level. If non-0, 
; RO966 0 ! then batching is in effect. 
; RO967 O 
; RO968 O ' Next 4 fields are set 
; RO969 O ' during mapping from 
; RO970 O ' virtual display to 
; kROO71 O ! pasteboard buffers 
3 noe 0 ! and describe what part 
; ROO7S O ' of the WCB buffers 
; RO974 O ! have changed since 
; kOO7S O ! Last call to output. 
; RO976 O PBCB_W_FIRST_CHANGED_ ROW = 168, 0, 16, 1%, 
; kRO977 O PBCB_ -¥ =LAST CHANGED ROW = 170, 0, 16, 1%, 
3; kO978 O PBCB_W_FIRST_ CHANGED COL = 172, 0, 16, 1%, 
: asd 8 PBCB_W_LAST_CHANGED_COL = 174, 0, 16, 1%, 
; RO981 0 PBCB_A_OUTNAM = 176, 0, 32, 0%, ! Address of buffer containing 
; kRO982 O ' the output Hip mage an 
; rRO98S O ' specifie _ a 
$ sits) 8 ' (or ‘Sy $$00 puT™ f° nel specified). 
3 noone 0 PBCB_W_SPEED = 180, 0, 16, 0%, ! Terminal speed 
; RO987 0 PBTCB_B_TSPEED = 180, 0, 8, O02, ! transmit speed 
: ides: 0 PBCB_B_RSPEED = 181, 0, 8, 0%, ! receive speed 
3; kRO990 6 PBCB_W_FILL = 182, 0, 16, 0%, ' Terminal fill 
; RO991 O PBTB_B_CRFILL = 182, 0, 8, O02, ' CR Fill 
3 ia 0 PBCB “B_LFFILL = 1835, 0, 8, 0%, ' LF fill 
; RO994 6 PBCB_A_BROADCAST_RIN = 184, 0, 32, O%, ! Broadcast mailbox AST routine 
3; RO995 8 PBCB_L_BROADCAST_ARG = 188, 0, 32, 02, ! Broadcast mailbox AST argument 
5 aba | PBCB_A_UNSOLICIT"RIN = 192, 0, 32, O%, ! Unsolicited input mailbox AST routine 
: ied 0 PBCB_L_UNSOLICIT-ARG = 196, 0, 32, 0%, ! Unsolicited input mailbox AST argument 
3; kRO999 PBCB_Q_BROADCAST_MSG QUEUE = 200,0,0,0%, ' Queue for holding broadcast messages 
> R1000 PBTB-L_SMGMBX_FLINR = 00, 0. $. 0%, | Forward Lin 
3 Ree 8 PBCB_L_ SMGMBX_ “atl NK = 204, 0, 32, 0%, ' Backward Link 
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SMGLIB = Screen Management BLISS Librar 18-se 1984 23:28: AX-11 Bliss-32 V4.0-742 Page 31) 
: : 1 730071382 33:88:49 SMGRTL.SRCJISMGDATSTR.REQ;1 ° (4) | 
; R1003 PBCB_W_FLAGS = » Q, 19. i, ! Flags | ; 
; R1004 PBCB_V_BROADCAST = oO. 1, QR. : Broadcast asy trapping enabled ; 
; R1005 PBCB_V_UNSOLICIT = ole Je Qbe ! Unsolicited nour notification enabled : 
3 RIDeS PBCB_V_SMGMBX_INIT = sae. Ya WBo ; tells AST routine this is . 
; R100 : an initialization call ’ 
; R1008 PBCB_V_RMS = 8. 3. Yo OR ' 1 means yong RMS for output : 
; R1009 PBCB_V_LOCKED = o Be le Ge ' PBCB i eyove ; 
3 aiety PBCB_V_REBUILD = 208, 5, 1, O%, ! A rebuild is needed ° 
; =R1011 PBCB_V_CONTROLO = 208, g. 1, O2, ' Previous output aborted by CTRL/O ; 
: RigIg PBCB_V_CANCEL_CONTROLO= 8 » fe te Ge : pence’ CTRL/O on next Q10 : 
3 R101 PBCB_V_BS = 208, 8 1, BR ! 1 means terminal can do backspace : 
3 Ripe PBCB_V_COMPLEX_BORDER= 208, 9, 1, O%, ! 1 means some border capability : 
5 HF ! is longer than a byte : 
3 Rise PBCB_W_ASYNC_CHAN = 210, 0, 16, o : Asyochronous channel to terminnal : 
; R1018 0 PBCB_W_MBX_CAAN = 212, 0, 16, 0%, ! Mailbox channel ; 
; k1019 8 PBCB_W_SMGMBX_BUFSIZ = 214, 0, 18. 0%, ! Max message size for mailbox : 
; k1020 PBCB_A_SMGMBX_BUFFER = 216, 8. 32, O%, ! Address of mailbox buffer 3 
; R1021 O PBCB_Q_SMGMBX_10SB = 220, 0, 0, 0%, ' 1/0 status block for mby read : 
; R10 ¢ 0 PBCB_W_OUTNAM_LE = 228, 0, 16, O%, ! Length of gutput name string : 
; kR1023 0 PBCB_W_ORIG_WIDTH = 230, 8. 16, Q%, ! Original width of terminal ; 
; R1024 0 PBCB_A_F AB = 232, 0, 32, O%, ! Address of FAB (if file) 3 
; R1025 0 PBCB_A_RAB = $78" 0, s Obe ! Address of RAB (if file) : 
3 Rides 8 PBCB_A_RBF = 240, 0, 32, 0%, ! Address of record buffer : 
; n1026 0 PBCB_W_TOP_SCROLL_LINE = 344, 0. 16, 0%. |! Top scroll Line ; 
; R1029 9 PBCB_W_BOT_SCROLL_LINE = 246, 0, 16, O%, ! Bottom scroll Line ; 
; kR1030 0 ! Above 2 words record 
; kR1031 O ! where the physical 
; ET 0 ! scrolling region is 
; R103 ' currently set on the 
3 R1034 ! terminal. 
; R1035 O PBCB_B_ORIG_HEIGHT = 248, 0, 8, 0%, : Original number of rows on 
; Riles 0 ! terminal (reserved for 
; R1037 O ! future use). 
; R1038 O PB.B_B_BACKGROUND_COLOR= 249, 0, 8, O%, ! Background color 
; R1039 0 PBCB-W_INTERNAL_ATTR = 250, 0, 16, O%, ! Internal attributes 
3 R1040 0 PetB_V_WIDE = 250, 0, 1, O%, ' Pasteboard allows wide Lines 
: R1041 0 PBCB_V_HIGH = 250, 1, 1, Q%, ' Pasteboard allows high wide lines 
: Wet 0 Vv S = 23° 6° ‘3 bee ! Phd allows physical tabs 
3; R1045 0 PBCB_L_TERATABLE = 252, 0, 32. O%, ' Corresponding TERMTABLE. 
3 R1044 0 PBCB_L_LONGEST_SEQUENCE= 256, 3° , O%, ' Longest capability sequence 
Ha Mi ee A 
3 m bx = o We ne. Bee ' Len of last capa y gotten 
3 nies 8 PBCB_R-BORDER_VECTOR = 38° 0° » O8; : 7 te pda border vector 
; R10¢9 
; Riay LITERAL 
: R105¢ PBCB_K_SIZE = 332; ! Total size of PBCB in bytes. 
; R1054 MACRC 
3; R1055 
: aides $PBCB_DECL = BLOCKCPBCB_K_SIZE,BYTE) 2%; 
: n1056 LITERAL ! masks for bits in field PBCB_L_MODE_SETTINGS 
| 
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64, 0 
Quadword containing next four words. The four fields 
define the coordinate system for the pasteboard and 
hence the window buffer. Their address is passed to 


OOooQooooooocfa0oo 


: k1070 ‘+ 

$ rire Window Control Block (WCB) 

: R107 4 This data structure resides in heap storage. Ther 

; Rigte seurreptty? one WCB associated with each pasteboard and +, pointed to 
: R107 i After” an output o oh rang WC8 A_TEXT_BUF ong ax A_SCR_TEXT_BUF have 
; R099 ' their contents suneee pped At the Same time, W ART TR_BOF and z 
; k1078 ' WCB_A_SCR R_BUF ave their contents. oye cipped ence, at” any point 
3; kR1079 ' in Eime ate. A-SCR_TEXT_BUF ang wCB TR. * record what is 

; R1080 ' currently on the screen. WCB_A yeRt ABuE and WCB_A_ATTR_BUF are used 
: Ri t _to construct the next screen Tot 

: RI HE MACRO 

: 4 Se WCB_Q_ COORD 0, 0, 00, O02, ! Really 0, 0, 

: R1086 

; R1087 8 

3 4 os 8 transmit these 4 fields as a single parameter. 
Be VeEUAUSIANT =O: 8s BE | Royer otter row (a 
° - = = * eo . wo ! um er o 

> RI 3 0 wCB -W COC_START = 4, 0, 16, OX, |! Col number es Ist col (=1) 
: R109) S WCB-W-NO_TOLS = 6, 0, 16, OX, ! Number of cols 

: R1095 0 
; R1096 0 
; R1097 O WCB_A_TEXT_BUF = 8, 0, 32, 0%, ! Address of a text buffer 
; bas 8 ! for this window. 
: R1100 0 WCB_A_ATTR_BUF = 12, 0, 32, 0%, ! Address of attribute buffer 
: ates 4 ! for this window. 
: R108 0 WCB_A_CHAR_SET_BUF = 16, 0, 32, 0%, ! Address of character set 
; R1104 0 ' buffer for this window. 
; kR1105 O ' This buffer is allocated 
; ai tae 8 ! only if needed. 
: R1108 0 WCB_A_SCR_TEXT_BUF = 20, 0, 32, 0%, ! Address of text buffer 
; k1109 O ! representing what is 
; ary 8 ! currently on the screen. 
: aitig WCB_A_SCR_ATTR_BUF = 24, 0, 32, O%, ! Address of attribute buffer 
; =R111 ' associated w 
: auiie ! WCB_A_SCR_TEXT_BUF 
: aitts 5 WCB_A_SCR_CHAR_SET_BUF=28, 0, 32, OX, ! Address of character set 
: R1117 O ' buffer pases \eted with 
: ais ! WCB_A_SCH 
; ah ' Allocated” ony” it needed. 
: R1121 WCB_W_CURR_CUR_ROW = 32. 0. 16, 1%, 
: «R11 § WCB-W-CURR-CUR-COL = 34, 0, 16, 1%, 
at | ceesatneattadee 
+ R1125 R_ROW = 36. 0, BA Re Po aa 
> R1126 R=COL = 38, 0, 16, 1%, 
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WCB_L_BUFSIZE = 40, 0, 32, 0%, 


WCB_A_LINE_CHAR o 44, 0, 32, 0%, 


WCB_A_SCR_LINE_CHAR = 48, 0, 32, O%; 


LITERAL 
WCB_K_SIZE = 52; 


MACRO 


$WCB_DECL = BLOCKCWCB_K_SIZE,BYTE) %; 


! No. of bytes in 


1 « e 
iSoseoctgne 25:28:18 


sor position in 


! Cur 
! WCB_LA_SCR_TEXT_BUF. 


' = .WCB [WCB_W_NO_ROWS) * 


«WCB CWCB-W"NO-COLS 


! Address of Line 

' characteris 

' text buffer. 

! This vector, one byte for 
' each } ne 


! High, Double-Wide, etc. 
i This vector is allo 

! be WCB_W_NO_ 
! Long so Tt Can be indexed 
! directly by row number 

! (1 through WCB_W_NO_ROWS). 


tics vector for 
records whether 
cated to 


O_ROWS + 1 bytes 


Address of Line 


! characteristics vector for 
' screen text 
! This vector, one byte for 
' each Line 
i the Line is Single, Double- 
! High, Double-Wide, etc. 

i This vector is allocated to 


buffer. 
records whether 


be WCB_W_NO_ROWS + 1 bytes 


' Long so Tt Can be indexed 
' directly by row number 
! (1 through WCB_W_NO_ROWS). 


wcB 
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! 

: Pasting Packet (PP) 

: his data str_cture defines the layout of a Pasting Packet. 

! this area is allocated in heap storage. One such structure exists for 
! ever pasting of a virtual Gi splay to a pasteboard. it exists 

! simultaneously on two queues -= the queue (DCB_A_PP_NEXT) peened in 
! the DCB which contains the queue of PP's Fopresens One fo which 

! pasteboards this DCB is pasted, and at the same t oe. t is ; member 
! of the queue (PBCB_A_PP_NEXT) headed in the PBCB which contains the 
! queue of PP's représénting all virtual displays pasted to this 
pasteboard. 

M 


' fhe previous 2 longwords serve as 

!' a queue entry for yn of enqueing 
' onto queue DCB_A_PP_NEXT == the queue 
' of all pasteboards fo which this 

! virtual display is pasted. 


° . o i, 

8 8. 35. oe 

' fhe previous 2 longwords serve as 

' a@ queue entry for urposes of enqueing 
' onto queue PBCB_A_PP_NEXT == the queue 
' of all virtual displays which are 

! pasted to this pasteboard. 


16, Pe 32, 0%, 
' Address of the DCB involved in this 
! pasting. 


oo 
on 
ow 
“ou 

so 

. 

2 

~ 


PP_A_NEXT_PBCB 
PP~A~PREV-PBCB 


PP_A_DCB_ADDR 


PP_A_PBCB_ADDR 


. 9 Bs Be 

Address of the PBCB involved in this 
pasting. 
f 
m 


oO oO 


20 
1 
: 


PP_wW_ROW © 24 


0, 16, 1%, 

he row number of the pasteboard onto 
hich row 1 of the virtual display 
aps. 


0. 1%. 18, 
fhe column number of the pesteneere 
onto which column 1 of the virtual 

display maps. 

28, 0, 16, 0%, 

' fhe number of rows which have to be 
m 
f 


PP_W_COL : 26 
i 


PP_wW_ROWS_TO_MOVE 


' moved from the display buffer to the 
! window buffer. If zero, the next 
! fields are meaningless. 


PP_W_FROM_INDEX 


source buffer which represents 
st byte position to be moved when 
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'¢ ing from display buffers to 
! lobe _— 
PP_W_TO_INDEX = f¢, 
: ne’byte a bexond Ff the begining of 
!~a nation buffer which everenuars 
! x, st byte to be depos See when 
! copying from a display buffers to 
! window buffers. 


PP_W_MOVE_LENGTH = 34 
i splay buffers to window buffers. 
PP_W_LABEL_BYTES_TO_MOVE 


36 


0, 16, 0%, 

he number of bytes of the border 
abel which need to be moved to the 
WCB text buffer when the virtual 

i display is mapped to the WCB text 

i buffer. This field may be zero if no 
i characters fit the way the display is 
i eye 


38, 0, 
! the: allies “loteced) beyond the 


f 
d 
f 
l 


PP_W_SRC_LABEL_OFF 


i bog taning of the the label string 
! which represents the Ist byte of tive 
: label to be moved. 

! (= pp tRe art of. ner eart a 

: BYTES, TO_MOVE]). 

! this nay ese t be valid if 

: PP cPPe yy _LABEL_BYTES_TO_MOVE] is 0. 


PP_wW_DST_LABEL_OFF 


40 16, 

' the’ ot ties “to-based) beyond the 

i beginning | TEXT_BUFJ 

i where the first byte “a the visible 

i Label Lands. This same offset is used 
i to reach the oe’ ropriate attribute 

| te in WCB CW A shtir AUFJ. This 

+ 


e ¢ Bt not bev t 
-PP CPP_W_LABEL “BYTES. TO_MOVE) is 0. 


NOTE: The 7 {telds above are conputed es a wanes ton 
of both the dimensions of the virtual display and 

the re bily qn the pestebeare on rob 1 it is pasted. 
If either ( dimensions or pasting position) changes, 
these TYetds must be recomputed. 

yhey are initially set up as a result of pasting. 

Hav ng these fields preconputed in the PP makes the 
outpy eer et on of moving data from display buffer 
to window buffer run faster since these values do not 
have to be continually (gee: on the fly. 


PP_B_CONTROL_BITS s 62.6, §, 
' Home for + yatious PP-wide status bits. 
PP_V_OCCLUDED = 42, 0, 


a ee ee ee ee ce ee cD ce cee cD cel cl el cl cel cael 


ee ee met mee 
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he By of columns to be moved from 
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PP_L_MOVE_SIZE 


WIN & 


AL 
PP_PBCB_QUEUE_OFFSET = 
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! Records whether the pasting of this 
ty virsuel display tot pasteboard -- 
! taking into ggne derat on all other 

! pasting to this pasteboard -- is 

! occluded or not 

i 1 => Occluded, O=> Not occluded 


42 1, 0%, 

! it's set, this bit means that the 

i virtual display (as pasted) can be 

i moved to ine window buffer v 

single CH$ A i.e. the source 

ane destination fields are contiguous 
es. 

i If not set, text must be moved on a 

i row by row basis since only the bytes 

! within a row are contiguous. 


43, 0 
“bp be” ROWS _TO_MOVE] * 
PP~W_MOVE_LERGTH 


Next 4 fields tell where on the WCB 
buffer the part of the virtual display 
a fits within the pesteteare 
pred ects. I.e., what area of t 

CB buffers et goers tee hen 9 
virtual displa | a is mepped to the 
pasteboard. These ds are not 
meaningful if PP_W_ROWS_ TO MOVE is 
zero since ’ then doesn't even hit 
the pasteboa 
Note: chose fields do not take into 
account whether the virtual nces. th 
is bordered. For most instances is 
is the right irk th to do. There 
one known quirk that needs to be fixed 
later-- If a virtual display is pasted 
to a row or column which is one unit 
outetge of the setenoare boundaries, 
then its Peat ROWS _TO_MOVE will be 0 
stage the d7 He Ttself will not 
process onto 7 pasteboard -- but its 

oy 


On nn mt mt me mt et met me mmm 


Offset of vi | queye peater for the 
pasteboard side of the chain. This is 
the byte offset of the 

PBCB_A_NEXT_PBCB field. 


! Size in bytes of a PP 
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a a 
Page 38 
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14 
i The ewes are masks of bit seit ions in_the bytes of the 
! attribute array pointed to by WCB CWCB_A_ATTR_BUF Py 
LITERAL 
ATTR_M_REND ating = 2x'O1', ' pote rendition 
ht n. ~M_REND_R = 2x'02', i peverse vi video rendition 
R_M_REND_BL INK = 2x'04', i Blink rendition 
ATIR™ ~M_REND_ “UNDER = %x'08', Under Line rendition 
ATTR_M_REND pene = %x'10° L tnesdreving character set 


this bit ladteaces that vo S$ character must 
: i be rendered using the device's Line-drawing character 


ATTR_M_USER =frarnic = 4x'40', ! User Line-drawing char set 
is indicates a generic singer eutng character which 
bent be converted to the device-specific character 
! before being output to the screen. 


ATTR_M_BORD oftrn = %x°80'; ! Border control bit. 
This bit is used to record that the associated text 
Co is (was) not » printable text byte, but a 
component of a border element. This bit is not 
supplied by the caller to SMG, but is catahtehed 
eeereas Sy while eiesues displays are being mapped to 
the pasteboard buffer. It is not of interest to the 
output routines 
During the neseing phase, while the various virtual 
Cieplays ¢ are mapped onto the output window buffer, 
is used to record the fact that an element of 
a border occupies the corresponding cell in the WCB 
text buffer. It is used to distingiush a Ame ASCII 
text character from an encoding of what pieces of a 
border element must occupy this text slot. 
After all virtual displays have been mapped to 
WCB buffers and all ster epet tone of border hereteare 
have been resolved, 7°9n byte in the attribute array 
is inspected to see t constains, this bit. If the 
bit in the attribute byte is set, the bits fa the text 
rye are inspected to see how they should be «endered. 
If the device associated with the pasteboar does not 
support a Line-drawing character set, the bits in the 
text byte are change? fo to, oe acapnest ASCII character 
@pprox mation -- 
is cellular position can +i be” treated Like any 
other text post 
However, if the associated device does support a line- 
drawin ng character set, the bits in the text cell are 
changed to the eppreer tate ra TF oe & for that Line- 
drawing set and the RA wie bit in the 
actribute rray byte is eed a 
The bits (in the text buffer) that encode the desired 
graphic are given below. 


80 


! These masks are used to set and reset these bits, e.g. 
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byte_in_attr_array = .byte_in_attr_arry OR ATTR.M.777? ! Set 
byte_in_attr_array = .byte_in_attr_arry XOR ATTR_M_?72? | Reset 


e following are the corresponding constants for accessing the 
5, Ser interrogation purposes. 
ATTR_V -REND -BOLD = %x'00', ' Bold 
ATTR_V_REND_REV = Zx'01', ! Reverse video 
ATTR_V_REND_BLINK = %X' ¢. ' Blink 
ATTR_V_REND_UNDER = %X'03', ! Underline 
ATTR_V_REND_GRAPHIC = 2X'04', ! Graphic character 
ATTR_ =V USER. “GRAPHIC = %X' ae ' User graphic character 
ATTR_V_BORD_ELEM = £x'07'; ! Border element control bit 
These bits are used in BLISS constructs Like: 
IF .(some_place_in_the_attribute *butfer)<aTIR .V_777,1> ! If set 


These constants are used to check the Line characteristics vector. 
The Line characteristics vector is used to specify double wide and 
double high/double wide. 

LITERAL 


LINE_K “ibe 


! single width and height (must be 0) 
KW ' double wide 
upper half of double high 


! Lower half of double high 


Wwnr—-o 


“K-LOWER_HIGH 
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14 
! The following are eh: Gefinitions_of bits found in the text buffer 
! pointed to by WCB CWCB_A_TEXT_BUF] when a particular cell contains 


! not a printable character, but an encoding of what parts of a border 
character need to be placed in this position. 


LITERAL 
BORD_M_RIGHT = 4x'01', 
BORD -M~ = %x'02", 
BORD-M-LEFT = %x'04' 
BORD -M~DOWN = %x'08" 
BORD_M_HORIZ = BORD_M_RIGHT + BORD_M_LEFT, 
BORD-M-VERT = BORDIM“UP + BORD“M~DOWN, 
BORD_M_ULCORN = BORD_M_DOWN + BORD_M_RIGHT, 
BORD ~M~URCORN = BORD"M~DOWN + BORD"MULEFT 
BORD"M“LLCORN = BORDTM-UP + BORD"M"RIGHT, 
BORD-M~LRCORN = BORDIM-UP + BORD-M“LEFT; 


Certain combinations of the above bit patterns are meaningful, e.g. 
BORD_M_VERT + BORD_M_RIGHT represent a ‘'right-T"' graphic 


These bits are used to ‘'OR'' together the right total graphic that is 
needed at a particular position on the screen to represent some 
element of a border. 


The corresponding bit positions: 
LITERAL 


BORD_V_RIGHT = Xx'00', 

Ve = 2x'O1', 
BORD-V"LEFT = 1x'0¢". 
BORD-V—DOWN = %X'03'; 
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1465 0 REQUIRE "RTLIN: SMGMACROS'; 
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SHGRACROS-REG” Eait: STAMOTS 7 


VR RRR RAE AREA A REAR RARE RARER AARAAAAEEAAHTTEKE TERA TETHER AERA eA eee 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


- 
* 
* 
o 
® 
iz THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THiS SOFTWARE OR “ANY. OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 
oe 
® 
® 
* 
te 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RRA RAARARAAAAE RARER AEAAAEEEE EEE AEE AARETEEEREARKARERKeee eee 
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> R1493 '+ 

; Hp +) FACILITY: Screen Management 

; R1496 ABSTRACT: 

; dyes | This file contains macros used by screen management routines. 
3 R190 MODIFIED BY: 

; RI 03 i 1-001 = Original. PLL 15-Mar-1983 

; R150 i 1-002 = Add SSMGSVALIDATE See Sth PLL_ 24-Mar-1983 

; (ORI Be i 1-003 = Add SSAGSVALIDATE ROW COL. P 7-Apr-1983 

; R1505 i 4-004 = Ad ts more. PCL 18-Apr-19 

: Ri 208 0 i 1-005 = Add SSMGSF IND_PRINT _LENG H, PLL 21-Apr-1983 

; mi ebe 6 1-006 - oye Sana. G_GET_ PBCB so that it can work in any module. 

: R1509 i 1-007 = Fix SSMGSFIND PRINT LENGTH. PLL 12-May-1983 

: R319 8 1-008 - belete 3s ate +h CK_FOR_WRAP since it's not used. 

: SHE 0 i 1-009 = Change = ce display iss really be DCB addresses. 

; kR15135 0 i Deleted SSMG$GET 'N XT_DID == no Longer needed. 

3 Rite 8 i Changed SSHGaGET “DCB.” 

> R1515 i RKR 20-May-1985. 

; R1516 0 i 1-010 = Add in ut entre s. (Formerly in gages. «REQ.) PLL 21-Jun-1983 
; kR1517 0 i 1-011 = Fix SE D_CODE. STAN 23-Jun- 

; Riei8 9 a 1-012 - Add Sgnser TERM_ DATAN STAN 15-Jan-1984, 
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+ 
SSMGSVALIDATE_ARGCOUNT 


Macro used to check that a SMG$ procedure was called with the correct 
number of arguments. If the test fails, the procedure returns with the 
failure status SMG$_WRONUMARG. 


Format: 
SSMGSVALIDATE_ARGCOUNT (lo, hi); 


lo = Lowest number of arguments which are vali (052332 
hi = Highest number of arguments which are valid (0-255) 


eee ee 


ACRO 
SSMGSVALIDATE_ARGCOUNT (Lo, hi) = 
BEGIN 


ACTUALCOUNT; 
EXTERNAL LITERAL 

SMG$_WRONUMARG; 
RIF lo NEQ hi 
XZTHEN 

RIF lo NEQ 0 

XTHEN 


meal GTRU (hi = Lo) 
RETURN SMG$_WRONUMARG; 
IF ACTUALCOUNT () GTRU hi 
THEN 


ae RETURN SMG$_WRONUMARG; 


ZELSE 
dl ACTUALCOUNT () NEQU lo 


RETURN SMG$_WRONUMARG; 


L 
DIFF: BYTE; 
DIFF = ACTUALCOUNT () = Lo; 
“FI 
END %; | 


i This macro checks to make sure the specified row and column are 

! within the virtual display. SMGS_INVROW or SMGS$_INVCOL is returned 
if they are not. 

MACRO $SMGSVALIDATE_ROW_COL (ROW, COL) = 


| 

° | 
EXTERNAL LITERAL SMG$_INVROW; | 
| 

t 
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>; MR1577 EXTERNAL LITERAL SMG$_INVCOL; 
: R157 IF ROW 
: MR157 ROW GTR .DCB CDOCB_W_NO_ROWS) 
: MP1580 HEN | 
: mt 1 RETURN (SMG$_INVROW); 
; MR 
mR Rs IF COL LEQ 0 OR | 
; wal ¢ * GTR .DCB COCB_W_NO_COLS] 

E met RETURN (SMG$_INVCOL); 
: RI END; %; 
; m8 
> R1591 '¢ 
3 £1296 SSMGS$GET_DCB 
: R1594 8 i Macro S$SMGS$GET_DCB validates the suppled virtual display id (DID) and | 
; kR1595 0 ' computes the starting address of the correseend ine Display Control 
; R1596 0 ! Block (DCB). If DID is invalid, SMG$_INVDIS_ID is returned to caller | 
; kR1597 O ! of routine that invokes this macro. 
: Res 8 RACRO 
; MR1600 9 SSMG$GET_DCB ( DID, DCB_ADDR) = 
3; MR1601 BEGIN 
. ab belt 0 BIND LOC_DID = DID : REF BLOCK C,BYTE); 
3; MR1603 0 EXTERNAL LITERAL SMG$_INVDIS_ID; 
; MR1604 0 
3 bb et 0 IF .LOC_DID CDOCB_L_DID] NEQ .DID 
: MR1607 0 RETURN (SMG$_INVDIS_ID); ! Not pointing to one of our 
: MR1608 ' control blocks 
; MR1609 0 
3; MR1610 O IF .LOC_DID COCB_B_STRUCT_TYPE] NEQ DCB_K_STRUCT_TYPE 
: MR1611 8 
3 miele RETURN (SMG$_INVDIS_ID); ! Not pointing to a DCB 
: MRI16135 0 
3; MR1614 0 DCB_ADDR = .DID; ' Assume ok 
§ ail? 0 END; 2%; 
: Ret? o ‘+ 
: aiel8 SSMGS$GET_PBCB 
> R1620 i Macro SSMGSGET pecs validates the suppled pestepoorg id (PID) and 
: = R162% ! computes the starting address of the corresponding Pasteboard Control 
3; «R16 § ! Block (PBCB). = If P1b is invalid, SMG$_INVPAS_ID is returned to | 
3 Rie ? caller of routine that invokes this macro. | 
> R1625 MACRO 
3; MRI6 $ SSMGSGET_PBCB ( PID, PBCB_ADDR) = | 
> MR16 BEGIN | 
3 wir 3 EXTERNAL LITERAL SMG$_INVPAS_ID; | 
: R16 9 IF NOT XDECLARED ( PBD_L_COUNT ) 
+ MRI6 EXTERNAL PBD_L_COUNT, | 
> MR16 ‘ PBD"A-PBCB : VECTOR, | 

| 
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PBD_V_PB_AVAIL : BITVECTOR; 


LSS 0 ! Too small 
GTR .PBD_L_ COUNT on ' Too b 
.PBD WV _PB “ROAIL L {.PID ' Not allocated 


RETURN (SMGS$_INVPAS_ID); 
PBCB_ADDR = .PBD_A_PBCB C .PID); 
END; “% 


SSMGSGET_NEXT_PID 


Macro SSMGSGET_NEXT_PID attempts to allocate the next available peeteteare 
id (PID). If Ro more can be allocated, it returns SMG$_TOOMANPAS to 
the caller of the Ne ne that invoked this macro. 
If a new one can be allocated, it is returned as PID and the 
sprrespencing 9) bit in PBD_V_PB “AVAIL is set to one to indicate that 
s 


this number in use. 
MACRO 
SSNGSGET_NEXT_PID (PID)= 
BEGIN 
BUILTIN 


FFCs 
EXTERNAL LITERAL SMG$_TOOMANPAS; 


IF ;PBD_L_COUNT + 1 GTR PBD_K MAX, PB 
RETURN (SMG$_TOOMANPAS) ; 


14 
i If we've done our PAN PS bite correctly, the FFC should find a 
: zero within PBD_K_MAX_PB bits. 


FFC ¢ ZERO. ' Starting bit position 
K_MAX_PB_BY_REF, Number of bits to search 
i 


PBD-V_PB_AVAIL, Base of search 
PIDJ;~ Position of "ist zero bit found 
on -¥ Ay AVAIL C .PID) = ! Mark as allocated 


i's " SsmosceT_ TERM_DATA 


i Gets terminal data from a terminal table into the PBCB. 
Assumes you have a symbol named ‘'PBCB"’. 


MACRO 
SSMGSGET_TERM_DATA(CAPABILITY,ARG1,ARG2) = 
BEGIN 


3 
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LOCAL 


INPUT 
STATUS 


EXTERNAL ROUTINE 
SMGSGET_TERM_DATA; 


IF POCBCPOCE L_TERMTABLE] EQL_0 
THEN PBCBCPBTB_L_CAP_LENGTH]=0 
ELSE BEGIN 
NPUT_ARGSCOJ=%LENGTH-1; 
IF NOT XNULL(ARG1) 
ZTHEN INPUT_ARGSC1J=ARG1 


FI; 
Z1F NOT ZNULL(ARG2) 
XTHEN INPUT_ARGSC2]=ARG2 


FI; 
STATUS=SMGSGET_TERM_DATACPBCBLPBCB 


ARGS : VECTORC3), 


PBCBLPBCB 
BCBCPBCE 


P 
iNPUT_ARGSY 


i" »~STATUS THEN RETURN .STATUS 


END 


< 1 
-Sep-1 


Be 93:85:54 


L_TERMTABLE] 
F( %NAME(SMG$K_, CAPABILITY 
PBCBCPBCB_L_LONGEST SEQUENCE] 


LCA 


PL 
K_CAP_BU 


ENGTH) 
FFERS, 


»), 


AX-1 
SMGR 


1 
TL 


Bli 
«SR 


cj 
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+ 
Macros for manipulation queue entries 


'¢ 


i $SMGSINSET_AT_HEAD 


i Macro SSMGSINSERT_AT_HEAD inserts the specified queue entry in the 
‘ queue at a postion now occupied by the entry pointed to by the 
orward pointer part of the queue header. 


MACRO 
SSNGSINSERT_AT_HEAD ( GENTRY, Q_HEAD) = 


BUILTIN INSQUE; 
INSQUE ( Q_ENTRY, Q_HEAD); 
‘+ 


i $SMGSINSET_AT_TAIL 


i Macro SSMGSINSERT_AT_TAIL inserts the specified queue entry in the 
! queue at a postion now occupied by the entry pointed to by the 
backward pointer part of the queue header. 


MACRO 
SSMGSINSERT_AT_TAIL ( Q_ENTRY, Q_HEAD) = 


BUILTIN INSQUE; 
INSQUE ( Q_ENTRY, .(Q_HEAD +4)); 


SSMGSREMOVE _F ROM_QUEUE 


'¢ 
; 
i 


Macro SSMGSREMOVE_FROM_QUEUE removes the specified entry from the queue. 


MACRO 
SSMGSREMOVE_FROM_QUEUE ( Q_ENTRY ) = 


BUILTIN REMQUE; 
AL 


LOC 
00; ! Item to be thrown away 
a ( Q_LENTRY, FOO); 


i Macro $SMG$Linear Linearizes a two dimensional subcript formed by a 1-based 
! row number and a 1i-based column number, into a single O-base 
subscript. 


MACRO 
SSMGSLINEAR (ROW NUMBER COLUMN_NUMBER) = 
(ROW_NUMBER=1)*,0CB CDCB_W_NO_COLS] + COLUMN_NUMBER -1 %; 


—— | 
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; R178) 
; «(ORI § ‘+ 
3 aie ! SSMG$Set_rend_code 
: R1785 i This macro sets the rendition code by checking for optional rendition _set | 
: aie and rendition_complement arguments, and using the default from the DCB. | 
: MRI7 8 MACRO SSMGSSET_REND_CODE (SET_ARG_NO, COMP_ARG_NO) = 
3; MRI7 BEGIN 
; MRI7 BUILTIN 
; MRI79 NULLPARAMETER; 
3 e288 REND CODE = .DCB LDCB_B_DEF VIDEO_ATTRI; 
; mR’ 293 IF NOT NULLPARAMETER TSET_ARG_NO) 
: mR1795 REND CODE = .REND_CODE OR ..RENDITION_SET; 
; my a ae NOLLPARAMETER TCOMP_ARG_NO) 
: MR1798 REND_CODE = .REND_CODE XOR ..RENDITION_COMPLEMENT; : 
: to 4 8 END; %; : 
: R1B801 0 1+ : 
: 1808 i $SMGS$BLank_fiil_DCB ; 
; Hy yr i This macro puts blanks into the text buffer, the default attribute arte 3 
3; R1805 ! into the attribute buffer, and the default character set byte into the : 
3 R808 character set buffer. : 
> R1808 
3; M™R1809 MACRO SSMGSBLANK_FILL_DCB (NUM, SRC) = 
mane esi 
> MRI I TEXT_BUF : REF VECTOR fart) 
; R181 ATTR_BUF : REF VECTOR C,BYTEJ, 
$ oat 13 CHAR_BUF : REF VECTOR L,BYTEJ; 
: MRI 16 TEXT_BUF = .DCB FBeB-AcAi bur 
; R181 ATTR_BUF = .DCB CDCB_A_ATTR_BUF J; 
mR 18 CHAR-BUF = .DCB CDCBTA~CHAR7SET_BUF); 
$ MR1820 CHSFILL (%C" ', 
: MR1821 NUM 
: met é TEXT_BUF CSRCJ); 
> MR1B24 CHSFILL (.DCB COCB_B_DEF_VIDEO_ATTR], 
3; MR1825 NUM 
; MRI 6 ATTR_BUF CSRC)); 
3; MRI 
2 wd 3 IF .CHAR_BUF NEQ 0 
; met 0 CHSFILL (068 CDCB_B_DEF_CHAR_SET), 
MRI ; CHAR_BUF [SRCJ); 
3 4 END; %; ! end of macro SSMGSBLANK_FILL_DCB 
> R1835 ‘+ 
3 4 ! SSMGSF ind_nonblank_len 


Ooo 


185 
5 
5 
185 
5 
5 
5 


| 
5 
; 
5 
; 
9 
5 


SOOOSOOSGOOOSOOOOOOOOOOOOSOOOOSOSOOOOOSOOOCSOOCOCOOOCOCOOOOOOOOOOOCOOOOO 


Be Se Se Ge Se Se Ge Se Ge Se Be Se Ge Se Se Ge Se Se Ge Fe Ge Se Se Fe Ge Ge Ge Se Ge Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se oe Se Se os Se Se Se Se oe ee. 


2 
SMGLIB = Screen Management BLISS Librar 13-5e -1984 23:28: AX-11 Bliss-32 V4.0-742 
° ’ 1 ~300n 138% $3: 28:18 SMGRTL.SRCISMGMACROS REQ: 1 


' This Beery finds the length of a string minus trailing blanks. Since 
: the text is already in a display buffer, there should be no funny 

' characters ove? as tabs Start at the qne f the string and search 
backwards to find the first character which is not a space. 


MACRO. SSMGSF IND_NONBLANK_LEN (STRING_ADDR, STRING_LEN, NONBLANK_LEN) = 


NONBLANK_LEN = STRING_LEN; ! initialize the Length 
ere «-NONBLANK_LEN NEQU 0 


BEGIN 
IF SCHERERAA SCMIOLUS (STRING_ADDR, .NONBLANK_LEN = 1)) 


THEN 
NONBLANK_LEN = .NONBLANK_LEN - 1 


EXITLOOP; 
END; 
END; %; 


‘4 
! $SMGS$Shuf fle 


The following macro is used to move text within a display. 
MACRO SSMGSSHUFFLE (NUM, SRC, DST) = 


N 
CHSMOVE (NUM 

TEXT _BUF src} 
TEXT“BUF CDSTIS; 


CHSMOVE (NUM 
ATTR_BUF src} 
ATTR~BUF C{DSTIS; 


CHAR BUF NEQ 0 ! exists only if char set requested 


CHSMOVE (NUM 
CHAR_BUF src} 
CHAR~BUF CDST S; 


END; 2%; ! end of macro SSMGSSHUFFLE 


‘+ 

! this is used by SMGSINSERT_CHARS only 
! This macro is used to determine how .~ positions a string will 

' occupy when it is printed. It takes into account funny characters 
such as tabs and backspaces. 


MACRO $SMGSFIND_PRINT_LENGTH (TEXT_LEN, TEXT_ADDR, PRINT_LEN) = 


N 
EXTERNAL LITERAL 
SMG$_FATERRLIB; 


ss 


C 
NEW_BYTES_REMAINING, No. of prtes remaining as returned 
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° ' -Sep-1 3B $3: ¢§: if SMGRTL.SRC SRGMACROS.. REQ;1 a (4) | 
mR1895 EXTERNAL | : 
MRI 38 CHAR_TABLE : VECT°R (,BYTE); | . 
MRI ; 
MR189 BUILTIN : 
MRI SCANC; : 
MRI : 
ARI CAL . 
MRI ¢ ALLONES : BYTE INITIAL (-1), ; 
MR ed by r ef : 
a ¢ BYTES REMAINING, No. of bytes in input string yet to be : 
ad IN_POINTER; i PUrrent’ pointer into input string ‘ 
MR1908 PRINT_LEN = 0; ! initialize ; 
MR1909 ovtes REMAINING = 3 LEN; ; 
MR1910 POTNTER = TEXT_ . 
MR191 tf RT. = 0; ° nod ty this to be the actual number : 
MRI i of ¢ se processed . 
od UMILE .BYTES_REMAINING. NEG ; 
MRI BEGIN ! Overall loop ; 
MRI L ‘ 


VRININMNINON) 3 3 oo 


' 
MRI i by SCAN 
MR1 ADDR_DIFF; i addr ~¢ char in input stream whose 
MRI i index into scanc table yields 
at " i non-zero code. 
MRI i See if any of the remaining input characters require special 
ooh 4 treatment. 
MRI SCANC ( BYTES_REMAINING, ! No. of bytes remaining 
MR .IN_POINTER, Current pointer to sourc 
MR CHAR_TABLE, Address of SCANC table 
MR ALLONES; Mask for ANDin 
a NEW_BYTES_REMAINING, New remaining no. of bytes 


including the byte which 
e 


MEUN “OC OONOVU EWN O DONOUSwn— 


DODOODODOOOOOOOOVOODODODODOOODDOOOOOO 
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: 

1 

1 

1 
MRI gavsed t snathust ten to 
MRI halt. $ zero onl H if al 
MRI bytes q d not satify search. 
MRI ADDR_DIFF); Addr of char in input stream 
MARI whose index into scanc table 
am yields non-zero code. 
MRI 3 IN_POINTER = .IN_POINTER + (.BYTES_REMAINING - atts BYTES _REMAINING); 
MR1940 PRINT_LEN = PRINT LEN + ( -BYTES R RERAINIYS - Byyes REMAINING) ; 
MR1941 orlntife ength of of chars 
abba TEXT_LEN = .TEXT_LEN + (.BYTES REMAINING = - PEW BY e§ REMAINING) ; 
MR194 pass ack no. of chars srace anno 
ab oe] BYTES_REMAINING = .NEW_BYTES RENAL ING; 
ath og IF .NEW_BYTES_REMAINING EQL 0 
bb ay EXITLOOP; !' Break out of loop -- we're done 
MR194 
matey '¢ 
MR1951 i Dispatch on the non-zero code located to see what special 
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H action is needed. 
CASE . -CHAR_TABLE (.(.ADDR_DIFF)<0,8>] FROM 1 TO 10 OF 


tH, 2,3,10): 
i Hex Character Codes ASCII Character 3 
i QO to 06 NUL to ACK 
: E to 1A $O to SUB : 
: C 8 1F FS to US : 
; BEL ‘ 
: 8 BS ; 
F DEL : 
i Non-printing characters : 
(4]:" F 
! Hex Character Codes ASCII Character : 
09 HT 


TABs require extra space. 


gne 5togs @ 53." assumes g tgybe get in the following columns: 


9, 17, 25, 33, 41,49, 57, 65, 73, 81, 89, 97, 105, 113, 
181, 129 € width=132) 


BEGIN 
PRINT_LEN = .PRINT_LEN + 
C. DCB COCB aur CURSOR_COLJ- 1)/8+1) #841; 


a LEN = .TEXT_LEN + 1; ! include as a ‘printable’ char 
526,7,8,91: 

Hex Character Codes ASCII Character 

i A LF 

! VT 

: C FF 

: D CR 

18 ESC 

i These characters do not make sense when inserting characters. 
; Throw away all text after this 

BEGIN 

EXITLOOP; 

END; 

f IMRANEE OUTRANGE): 

i 


Should never get here -- there are no other codes in 


Rorofnonons: 
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oy 
da 


H CHAR_TABLE. If we do, we've got a problem. 


BEGIN 
RETURN SMG$_FATERRLIB; 


TES; 


hed 
! Re-adjust poner and count of bytes left to account for | 
;_the special character(s) just processed. 


IN_POINTER = .IN_POINTER + 1; 
BYTES_REMAINING = .BYTES_REMAINING -1; 
END; ! Overall loop 


WAL AITOPOPOMIMONONOPOPIND SS SS 


VMIFUN—OOONOUESWN "OOONOULS UT 


MR20 

5 END; %; ! End of macro SSMG$FIND_PRINT_LENGTH 
0 t+ 

0 Macros used for input routines. 

0 MACRO 

0 SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH) = 

0 BEGIN 

0 EXTERNAL LITERAL 

0 INVKTB_ID; 

0 KTH = .KEY TABLE_I6 (0); 

: -KTH EQC 0 

0 RETURN SMG$_INVKTB_ID; ! Invalid key-table-id 
é IF kt CKTH_L_CHECK] REQA .KTH 

RETURN SMG$_INVKTB_ID; ! Invalid key-table-id 


MACRO 
BERGEN IDATE KO (KEYBOARD_ID, KCB) = 


EXTERNAL LITERAL 

MG$_INVKBD_ID; 
KCB = .KEYBOARD"1D C0); 
IF .KCB EQL 0 


THEN 
RETURN SMG$ INVKBD 1D; 
IF ykce CKCB_L_CHECK] NEQA .KCB 


pe Tune SMG$_INVKBD_ID; ! Invalid keyboard-id 


GRERRRERERE 


PUPA PIII 


! Invalid keyboard-id 
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ep-1 


(SMGSK_TRM_CTRLA) 
LML: SMGDEF '? 


er 


OT ZDECLARED (SMGSK_TOP) 


TERAL SMGS$K_TOP=0; 
TERAL L SMGSK =BOTToR=1; 
TER 


m 
22 


SMGSK-LEFT=2 
=a AL SMGS$K “RIGHTSS; 


8 

i 

§ Z1F NOT ey ARED (SMGSK AST SRT? 
i ° 

5 

6 


CL 
ha REQUIRE ‘'RTLML:SMGTRMPT 


! End of file SMGLIB.REQ 
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